Những câu hỏi liên quan
Bàn Chàn Khuân
Xem chi tiết
Bùi Thị Phương Nga
Xem chi tiết
hoa ngọc
Xem chi tiết
Hương Đinh
Xem chi tiết
Vương Hương Giang
2 tháng 3 2022 lúc 19:19

XEM HÌNH

imagerotate

Bình luận (0)
Hương Đinh
Xem chi tiết
Đỗ Đức Duy
2 tháng 3 2022 lúc 19:05

image

Bình luận (0)
Nguyễn Huỳnh Mai Trân
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 4 2022 lúc 22:04

uses crt;

var a:array[1..100]of real;

n,i,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem:=0;

for i:=1 to n do 

  if a[i]>=8 then dem:=dem+1;

for i:=1 to n do 

 if a[i]>=8 then write(a[i]:4:2,' ');

writeln;

writeln(dem);

readln;

end.

Bình luận (0)
Nguyễn Thanh Sơn
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2023 lúc 18:31

Đề không rõ ràng. Em xem lại nhé!

Bình luận (0)
Nguyên Đăng
Xem chi tiết
Ken Kaneki
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 8 2021 lúc 0:49

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

begin

readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t/n:4:2);

readln;

end.

Bình luận (0)